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: IARRBAAAAAASALALALALASLALALASARAESARSERE ERASER E RRR S ARES RRR ERR SARS RAR RRR AR AS Of 
g FACILITY: General Utility Library 

; ABSTRACT: 

: This module contains routines which extract the length and 

3 address of the first byte of a string from any supported 

: class of string descriptor. 

; ENVIRONMENT: Runs at any access mode, AST Reentrant 

AUTHOR: R. Reichert, CREATION DATE: 2-NOV-1981 

MODIFIED BY: 

3 1-001 - Original. RkR 2-NOV-1981 


B36 = - + support for class SO string descriptors. DG 3-Oct-1983. 


Dh te Change class SO string descriptors to SB. DG 27-Feb-1984. 
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LIBRTL.SRCIJLIBANASTR.MAR; 1 (2) 
-SBTTL DECLARATIONS 
LIBRARY MACRO CALLS: 


SOSCDEF 
SSSDEF 


EXTERNAL DECLARATIONS: 


Sete Ge 


C$_ symbols 
$_ symbols 


Prevent undeclared symbols from being automatically global. 


-DSABL GBL 

-EXTRN LIBS_INVSTRDES ; Invalid string descriptor 
MACROS: 

NONE 
EQUATED SYMBOLS: 


PWN OOONOULS WN O0 
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OWN STORAGE: 


-PSECT _LIBSDATA PIC, USR, CON, REL, LCL, NOSHR, - 
NOE X N 


—, RD. WRT. LONG 
NONE 
PSECT DECLARATIONS: 


-PSECT _LIBSCODE PIC, USR, CON, REL, LCL, SHR, - 
EXE, RD, NOWRT, LONG 


COO 08 SII NIN SN NNSA PP AAA AAA II 
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¢ aaa -SBTTL LIBSANALYZE_SDESC = Analyze string descriptor | 
$ ; FUNCTIONAL DESCRIPTION: | 
8 : Extracts length and aperens of ist data byte from any supported 
53 class of string descriptor. | 
4 3 CALLING SEQUENCE: 
44 38 : ret_status.wlc.v = LIBSANALYZE_SDESC (DESC.rt.dx, 
94; LENGTH.ww.r, 
09 32 : ADDR.wa.r ) 
99 $3 : FORMAL PARAMETERS: 
3 100 : DESC. rt.dx address of a string descriptor 
4 133 ; LENGTH. ww.r address of a word to receive the strings length 
000 19 : ADDR.wa.r address of a longword to receive the address 
000 104 ; of the Ist data byte of the string. 
000 105 ; IMPLICIT INPUTS: 
0900 196 3 
0000 107 ; NONE 
0000 108; 
0000 109 ; IMPLICIT OUTPUTS: 
0000 110; 
0000 111; NONE 
44 i 3 
44 17 : COMPLETION STATUS: 
0000 115: $$$_NORMAL Normal successful completion 
a4 118 : LIBS_INVSTRDES Invalid string descriptor 
9000 118 : SIDE EFFECTS: 
000 119 ; 
44 120 ; NONE 
4 121 ; 
000 1 ¢ io 
4 1 . 
000 124 ; Parameter displacements off AP 
00000004 0000 125 bESC = 
00000008 0000 1 $ LENGTH = 8 
0000000C 09 ! f ADDR s 12 
004 129 -ENTRY LIBSANALYZE_SDESC, “M<IV,R2> 3 Entry point 
50 04 AC 00 000 130 MOVL DESC(AP), 3; address of descriptor 
00000015 * GF 16 0006 131 JSB G*LIBSANALYZE_SDESC_R2 ; length ->R1 
ooc 1 $ 3; address->R 
0OoCc 1 3 status ->R 
08 BC 51 80 +8 134 MOVW R1, @LENGTH(AP) ; length to callers variable 
oc BC 4652 = «CD 1 135 MOVL R2, @ADDR(AP) 3, address to callers variable 
04 14 136 RET :: Return, with status in RO. 
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-SBTTL LIBSANALYZE_SDESC_R2 = Analyze string descriptor 
: FUNCTIONAL DESCRIPTION: 


Extracts Length and oqdrese of Ist data byte from any supported 
class of string descriptor. 


CALLING SEQUENCE: 
LIBSANALYZE_SDESC (DESC.rt.dx, LENGTH.wl.v, ADDR.wa.v ) 


= 


FORMAL PARAMETERS: 
DESC.rt.dx (In RO) address of a string descriptor 
LENGTH.wl.v (Returned in R1) the strings length 
ADDR.wa.v (Returned in R2) the address 
of the ist data byte of the string. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


COMPLETION STATUS: 


SS$_NORMAL Normal successful completion 
LIBS_INVSTRDES Invalid string descriptor 


SIDE EFFECTS: 
NONE 
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VAX=11 Macro Run Statistics . Acasa ats 7 $5; 3 LIBRT 


ihs gert ing et Limit wa 1900 pages. 
723 ayes, (54 pages) o rtust memory were used te buffer the intermediate f°fe: 
i re were pages of symbol table space oh ecesee F hold 561 non-loca “~ ocal symbols. 
source i nes were read in Pass 1, produc n object records in Pass 
pages of virtual memory were used to define 8 macros. 
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; Macro Library statistics H 


Macro Library name Macros defined 
“$255$DUA28: CSYSLIBISTARLET. MLB;2 5 
604 GETS were required to define 5 macros. 


There were no errors, warnings cr information messages. 
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